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TILE TIMESCHDL = TIME DEPENDENT SCHEDULING 
"IDENT 'V04-000 
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COPYRIGHT («) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIP MENT _GORPORATION, MAYNARD, MASSACHUSETTS. 


® ® 
:* ® 
:* ® 
:* te 
** a 
a SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
a SION OF THE ABOVE COPYRIGHT NOTICE. THIS so FTUARE OR ANY. OTHER 
:e S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:e PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
:* TRANSFERRED. : 
*® ® 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. 2 
'* ® 
** ae 
'® oa 
:* ® 
** * 
'* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
TIT et PITT iti rir iri tii iii iii titi iiiitiiiitiiiiiitiiiiiitiiiiti iii 
: D. N. CUTLER 15-JUN-76 
TIME RELATED ACTIVITY 
UPDATE TIME OF DAY 
CHECK FOR ITEM READY IN TIMER QUEUE, AND 
PERFORM DEVICE TIMEOUT. 
UPDATE MEASUREMENT STATISTICS IF MEASUREMENT IS ENABLED. 
MODIFICATION HISTORY: 
v03-013 jl ptedty Hobbs 29-Apr-1984 


hange all wW* SCHSexxs references to L“SCH$Gxxx to 
fre current (and future) branch problems. 


VO3-012 wMC0012 Wayne Cardoza 23-Apr-1984 
Declare pegeqneery and mailbox resources suet lable once per 
atte just in case... 
V03-011 CWH3011 CW Hobbs 14-Apr-1984 
Fixed broken branch. 
v03-010 $RBO118 Steve Beckhardt 26-Mar-1984 
Fixed broken branches. 
v03-009 SRBO117 Steve Beckhardt 17-Mar-1984 


mengyes loop around checking for locks on the timeout queue 
pee ginge a deadlock search. This loop is now in the module 
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ety 7 84:28:48 SYS.SRCITIMESCHDL.MAR; 1 sd dh) 
V03-008 MIRO200 MICHAEL I. ROSENBLUM 15-OCT-1983 
Remove the setipl to DIPL when RDUTIM expires 


To allow the dri er alek this service to do it's 
own fygchrentzet on. 

DWTO David W. Thiel 22-Aug-1983 
pecs ers non=paged dynamic memory available once per 
second. 


$RB0099 Steve Beckhardt 15-July-1983 
Added loop to deadlock detection timeout code to allow 
finding more than one deadlock per second. 


ROW0190 Ralph 0. Weber 3-MAY-1983 

Rewrite fork-and-wait processing using newly acquired 
knowledge of how to move a queue from one header to another. 
This better protects against infinite looping during the 
processing of the fork-and-wait queue. 


ROW0176 Ralph 0. Weber 4-APR-1983 
Add code to process fork-and-wait queue to EXESTIMEOUT. 


SRB0056 Steve Beckhardt 14-Dec-1982 
Modified code to allow IPL$_SYNCH and IPL$_TIMER to be IPL 8 
while IPL$_TIMERFORK is IPL 7. 


SPF0200 Steve Forgey 1-Jun-1982 
Add alternate entry point to interval timer interrupt service 
routine for Unibus clock interrupt. 


ROW0078 Ralph 0. Weber 1-APR-1982 
Enhance documentation regarding multiple use of timer queue 
entry blocks. 
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TIMESCHDL - TIME DEPENDENT SCHEDULING 16-SEP=1 AX/VMS © V04-00 Page 4 
youceo0 HARDWARE CLOCK INTERRUPTS g- SEF] 382 8}: 38: 88 SYS.SR cif MESCHDL MAR: 1 id 
0 .SBTTL HARDWARE CLOCK INTERRUPTS 
; : EXESHWCLKINT = HARDWARE CLOCK INTERRUPT 
104 3 THIS ROUTINE 1s. AUTOMATICALLY VECTORED TO WHEN THE CLOCK COUNT REGISTER 
125 : OVERFLOWS. URRENT ABSOLUTE TIME IS UPDATED, THE ACCOUNTING INTEGRAL 
1 g : OF THE CORREN $ IS EME AND THE QUANTUM OF THE CURRENT 
127 : PROCESS IS INCR D. IF THE PROCESS QUANTUM TRANSISTS TO ZERO OR THE 
1 8 ; FIRST ENTRY IN THE TIMER QUEUE CAN BE REMOVED, THEN A SOFTWARE INTERRUPT 
00 3: 1S REQUESTED ON THE TIMER LEVEL. THE CLOCK iNtERROPT’ 1S THEN DISMISSED. 
00 : ; THE CLOCK IS CURRENTLY SET TO INTERRUPT AT 10MS INTERVALS. 
1 o 
0000 09 134 .PSECT ASEXENONPAGED,LONG 
135 EXESHWCLKINT:: ; HARDWARE CLOCK INTERRUPT 
18 800000C1 8F DA 0000 1 : MTPR #*X800000C1,#PR$_ICCS CLEAR INTERRUPT + ERROR AND RE-ENABLE 
01 00 Seale SFORCE NEXT INST. TO LONGWORD ALIGN 
50 DD $08 139 RO ;SAVE REGISTER RO 
0000' CF 9001 86A0 BF CO OOOA 140 ADDL #100000,W*EXESGQ_SYSTIME ;UPDATE SYSTEM ABSOLUTE TIME 
0004'CF 00 O08 0013 1 ADWC  #0,W*EXESGO_SYSTIME+4 ; 
001 14 : 
018 144 ; IF MEASUREMENT IS ENABLED, UPDATE TIMER STATISTICS FIELDS. 
O18 14a * 
00000002 01 149 IF NE CAS_MEASURE 
50 OBA f 001 149 CVTBL 11(SP),RO :GET UPPER BYTE OF SAVED PSL 
0 orc 150 BGEQ 0$ 'BRANCH IF CH BIT NOT SET 
. O1— 151 MOVZBL #5, TELSE INSERT M INDEX 
50 F8 BF 021 138 20$:  BICB  #*xF8,RO > CONVERT EXTEND ED BYTE TO INDEX 
0000'CF40 Be 0 3 133 INCL  W*PMS$GL_KERNELCROJ S INCREMENT STATISTICS VECTOR 
00 A 135 -ENDC 
1308 AE 1A EO $3 A 133 BBS #PSL$V_IS,8(SP),25$ ;1F SET, DON'T ADD INTERRUPT SERVICE TIME 
50 00000000" EF 00 0 F 138 MOVL “SCHSGL_CURPCB,RO [GET ADDRESS OF CURRENT PROCESS PCB 
0 6C AO D 6 15 MOVE PCBSL_PHB(RO) RO :GET ADDRESS OF PROCESS HEADER 
8 AO D6 003A 160 INCL  PHDSL-CPUTIM(RO) SINCREMENT ACCOUNTING INTEGRA 
CA 86 0 161 INCW  PHDSWTQUANT(RO) [INCREMENT TIME QUANTUM 
171 4 16¢ a BGEQ 308 [IF GEQ, QUANTUM RUNOUT 
50 O000'CF DO 004 18% "MOVE EXESGL_TOFL,RO :GET ADDRESS OF FIRST ENTRY IN TIME QUEUE 
0004'cF 1C AO D1 0047? 165 CMPL Vora _TIME+4 (RO) ,W*EXESGO_SY STIME SG ; COMPAR E HIGH ORDER PARTS OF TIM 
A 1F 004D 166 BLSSU 308 iF LSSU ENTRY DUE 
1A O004F 16 BGTRU 40$ “IF GTRU ENTRY NOT DUE 
0000'CF 18 A0 01 31 168 CMPL §TQESQ_TIME(RO) ,W°EXESGQ_SYSTIME ;COMPARE LOW ORDER PARTS OF TIME 
03 «(1A 7 1g BGTRU “IF GTRU ENTRY NOT DU 
39 170 308 SOF TINT #1PLS_TIMERFORK >REQUEST SOF TWARE INTERRUPT ON TIMER LEVEL 
50 BED 5¢ 171 40$ POPL R TRESTORE R 
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;* 
; EXESSWTIMINT = SOFTWARE TIMER INTERRUPTS 
; THIS ROUTINE IS AUTOMATICALLY VECTORED TO WHEN A SOFTWARE INTERRUPT IS 
; REQUESTED ON THE TIMER . TIMER INTERRUPTS ARE REQUESTED WHEN THE 
; CURRENT PROCESS HAS EXCEEDED ITS CPU TIME QUANTUM OR THE FIRST ENTRY IN 
; THE TIMER QUEUE IS DUE. 
ASSUME IPLS$_TIMER EQ IPL$_SYNCH 
ALIGN LONG 
EXESSWTIMINT: : ;SOFTWARE TIMER INTERRUPTS 
SETIPL #IPL$_TIMER SRAISE IPL TO TIMER/ SYNCH 
PUSHR #*M<RO,R1,R2,R3,R4,R5> :SAVE REGISTERS RO THRU RS 
MOVL  L*SCHSGL_CURPCB.R4 [GET CURRENT PROCESS PCB ADDRESS 
MOVL  PCBSL_PHB(R4) RS [GET ADDRESS OF PROCESS HEADER 
TSTW § PHDSW-QUANT(RS) SQUANTUM END? 
BLSS CHKTMG 3I1F LSS NO 
BSBW SCHSQEND [CALL SCHEDULER TO RESET QUANTUM 
CHKTMQ: MOVL W*EXESGL_TOFL,RS [GET ADDRESS OF FIRST ENTRY IN TIME QUEUE 
SETIPL #IPL$_HWCLK “RAISE IPL TO HARDWARE CLOCK LEVEL 
CMPL  TQESQ-TIME+4(R5) ,W*EXESGO SYSTIME+4 :COMPARE HIGH ORDER PARTS OF 
BLSSU 208 sTF LSSU ENTRY IS DUE 
BGTRU 10$ "IF GTRU ENTRY IS NOT DUE 
CMPL § TQESQ_TIME(RS),W*EXESGQ_SYSTIME ;COMPARE LOW ORDER PARTS OF TIME 
BLEQU ;1F LEQU ENTRY IS DU 


10$: POPR #*M<RO,R1,R2 


6 6 ees 
NINTERRUPTS "$$Ep=1986 83:58:08 USYSYSRcHtinestuocoman:1 «P88 cj 


«SBTTL SOFTWARE TIMER INTERRUPTS 


; RY 
R3,R4,R5> ;RESTORE REGISTERS RO THRU RS 
SETIPL #IPLS_TIMERFORK SLOWER IPL BACK TO TIMERFORK 


: REMOVE DUE ENTRY FROM TIMER QUEUE 


20$:  REMQUE (R5),RS ;REMOVE FIRST ENTRY FROM TIME QUEUE 
SETIPL #IPL$_TIMER “LOWER IPL TO SOFTWARE TIMER LEVEL 
EXTZ2V #0,#2-TQE$B ROTYPE(RS).RO ;GET REQUEST TYPE 
RO. <TIMER,SYSUB,WAKEUP> ;DISPATCH TO PROCESSING ROUTINE 
BUG CHECK [NVTOEFAT ;INVALID TIME QUEUE ENTRY FORMAT 


PROCESS SYSTEM SUBROUTINE 
tenet WARNING #te* 


Upon return from the system subroutine call, this routine supects RS to 
contain the address of a valid timer queue entery. The TQESV_REPEAT bit 

of that TQE will be tested, and if it is set, the TQE will be reentered in 
the timer queve, Therefore, the call system subroutine CANNOT use the TQE, 
pointed to by R5 at entry, for some otner purpose and return here without 
placing the address of a valid TQE in R5. 


To this end, the executive system table contains a global symbol. 
EXESAL_TQENOREPT, which repersents the address of a always valid always 


non-repeating timer queue entry. mer system subroutines wishing to use 


(1) 


TIM 


"SrSEp=1986 83:58:08 SYS Sach septa peed 


aE oak 


RRUP 


For exgnple. & system subroutine which decides to discontinue its timed 
; qoores ons and deallocate the TQE would execute at least the following 
3; instructions: 

MOVL R5, RO NB: this uses the TQE 

JSB G*COMSDRVDEALMEM ; as. an IPL 6 fork block. 


ROVAL G*EXESAL_TQENOREPT, RS ;Setup no repeat TQE. 


53 AS Ht Seen tus dt 
85 “be STEM SUBROUTINE 
B8 OB AS os BBC Tae sy= REPEAT, TQESB ROT vPE CR ), CHKTMQ ;IF CLR, NOT REPEATABLE 


BRB REP TIM” s INSERT REPEAT REQUEST IN TIME QUEUE 
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PROCESS TIMER 


4 
4 
4 
4 
4 
4 
4 
4 
0 4 
0c 4 
OC 3 
0c 
0c : 
OC 5 
o¢ 5 
¢ 7 ENABL LSB 
51 OC AS p0 OC 56 TIMER: MOVL TOES, _P1D(RS) R1 :GET TARGET PROCESS ID 
2. 02 9A 00C 5 MOVZBL #PRIS-TIMER,R2 :SET PRIORITY INCREMENT CLASS 
53 29 a5 «9A 00 5 MOVZBL TQES$B~EFN(R5).R3 GET EVENT FLAG NUMBER 
EF 30° 30 00CD 25 BSB SCHSPOSTEF [POST EVENT FLAG 
38 50 4=—9 00D 6 BLBC ~—_- RO, 308 SIF LBC BROCESS NO LONGER IN SYSTEM 
50 0080 C4 DO 00D 6 MOVL  PCBSL_JIB(R4) RO aap JIB ADDRES 
4 A0 B86 00D 6 INCW JIBSW~TOCNT(RO) PDATE AV AV Pete whine QUEUE ENTRIES 
25 28 AS 06 Fi 0D 6 BBC #ACBS$V_QUOTA, TOES i 31 NO AST SPECIFIED 
0B AS 28 A E 6 MOVB =‘ TQES: NRMOD (RS) Ta ess raeivee th ) tech SS MODE 
52 08 2A E 6 MOVZBL #PRI TIMER, R2 RIORITY sf ACCESS CLASS 
FF15" 30 O0E 6 BSBW SCHSQAST ‘QUEUE at FOR PROCESS 
44 «11 OE 6 BRB 40$ 
54 2 AS 3¢ ED 268 10$:  MOVZWL TQESL_ROPID(RS) :6ET REQUESTING PROCESS INDEX 
90000000 FF44 OD OF} : MOVL  aL*SCASGL_PCBvEt PROCESS PCB ADDRESS 
CAS 60 A4 01 O0F9 CMPL  PCBSL_PIDTR4), TOESL TROP IBERS) :PROCESS ID ARATER? 
0B 12 OOF 7 BNEG 30% SIF NE 
38 a, 8 , INC pcesu_ ASTCNT(R4) ;UPDATE AVAILABLE AST QUEUE ENTRIES 
50 of A 1 74 20$:  MOVZBL #RSNS_ASTWAIT,RO ‘SET AST WAIT RESOURCE NUMBER 
FEES" 1 7 BSBW SCH HSRAVAIL [DECLARE RESOURCE AVAILABLE 
5 1 76 30S: VL OR [SET ADDRESS OF BLOCK 0 DEALLOCATE 
FEEF 1 7 BSBW E XE SDEANONPAGED ;DEALLOCATE TIME QUEUE ENTRY 
1E 11 01 7 RB ; 
Wg 
1 : PROCESS WAKE UP 
11 ’ 
51 OC AS 11 WAKEUP: MOVL  TQESL_PID(RS),R1 :GET TARGET PROCESS ID 
FEE6' 11 BSBW SCHSWAKE :WAKE apo 
D0 11A BLBC ~—_-»RO,, 108 PROCESS NOT IN SYSTEM 
CB OB AS 11D BBC #TOESV_REPEAT, TOESB _ROTYPECR + COS SIF CLR, THEN NOT REPEATABLE 
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TIMESCHDL - TIME DEPENDENT SCHEDULING 16=S AX/VMS # cro v04-00 Page uCl 
VO4= HDL. 3 
be 850 SEARCH FOR TIME OUTS grSEr]E8s BUERAS HENCE Segre voRroo oe 4, vo 
4 5 = .SBTTL SEARCH FOR TIME OUTS 
134  i*exeSTIMEOUT - SEARCH FOR TIME OUTS 
? Py 
134 § : THIS ROUT INE IS ENTERED ONCE A SECOND TO PERFORM VARIOUS FUNCTIONS THAT 
4 0 ; NEED TO BE PERFORMED ONCE A SECOND. THESE INCLUDE: 
134 j ; 1) SCAN THE DEVICE DATABASE FOR DEVICES THAT MAY HAVE TIMED OUT 
134 : ) SCAN FOR CRB'S THAT MAY HAVE TIMED OUT 
134 4; ) SCAN FOR WAITING tocKs” THAT MAY HAVE TIMED OUT (INITIATE 
134 5: DEADLOCK SEARCH) 
134 : ; 4) WAKE THE SWAPPER IF NECESSARY 
134 ; ) WAKE THE ERROR LOG PROCESS, IF NECESSARY 
134 B ; §) SCAN FOR AERORY CRD. ERRORS AND REENABLE MEMORY INTERRUPTS 
134 ; ) UPDATE THE SYSTEM ABSOLUTE TIME IN SECONDS 
4 19 : 8) DECLARE A NON-PAGED DYNAMIC MEMORY AVAILABLE EVENT 
134 312 ° 
134 if EXESTIMEOUT:: ;SEARCH FOR TIME OUTS 
56 «DD «01340314 PUSHL R [SAVE A REGISTER 
55 DD O01 : 15 PUSHL R :SAVE ANOTHER 
56 6 0 01 18 MOVL  DDBSL LINK (R3), R6 [GET ADDRESS OF FIRST DDB 
FEC2' 30 0138 31 BSBW © SCHSSQPW KE i MAKE SWAPPER IF NECESSARY 
0000'CF d6 01 18 INCL  W*EXESGL_ABSTIM TE 4B LUTE | TIME IN SECONDS 
03 0000'CF 01 £1 014 1 BBC #ER sy FTRER. W*ERLS$GB -BuFFLAG, 0$ srt CLR, TIMER NOT ACTIVE 
FEBS' 30 014 0 BSBW SS séERL ERROR LOG UP ORMAT PROCESS 
FEB2' 30 148 1 10$: BSBW ECESREENABLE ARE ERD INTERRUPT REENABLE AND SCAN 
14E 3 
14 4 : SCAN FOR DEVICE TIMEOUTS 
14E : 
55 04 Ab 09 14 § 20$:  MOVL  DDBSL_UCB(R6).RS ;GET ADDRESS OF FIRST UCB 
1A 13-015 : BEQL 60$ EOL MEANS NO UCB'S AS YET ON THIS DDB 
15 38 as 14 £0 13 BBS #DEVSV_MBX,UCBSL_DEVCHAR(R5) ,60$ ;I1F SET, DEVICE IS MAILBOX 
3a 64 05 400 «20 (0159 0 30$: BS net “TIM. UCB$W~STS(R5) 708 il SET, TIME OUT ENABLED 
05 38 a5) «(02)—C—i«dE.”—séOO5 1 40$: BBC sDEVSV =I TRM UcBsL eDEVCHARIR ) 5 $ -JF'CLR, DEVICE NOT TERMINAL 
68 68 AS. O01Ss«éEOsO016 : BBS #UCBSV"TT TIMO DEVSTS(R5),90$ ;IF SET, READ TIMEOUT ENABLED 
55 30 a5 DO 016 50$: MOVL CBSL VEINR(RSS Rge 7GET ADDRESS OF NEXT UCB 
EB 12 O16C 4 BNEQ [IF NEQ MORE TO SCAN 
56 66D 1 5 60$: MOVL DDBSL_LINK(R6) ,R6 [GET ADDRESS OF NEXT DDB 
DBO 7 3 BNEQ 0$ :IF NEQ MORE TO SCAN 
17 : 
7 33 ; > FINISHED DEVICE SCAN, NOW CHECK THE LIST OF CRB'S 
17 41° 
56 O000'CF DE 017 4 MOVAL OCSGL_CRBTMOUT.R6 ;PICK UP List HEAD 
g 0 17 rk 65$: MOVL ray. Re SANY MORE TO SCAN? 
A 13 0178 344 BEQL CHECK _FORK_N_WAIT ENO ONE 
17D 6-345 SETIPL #IPLS~POWER ~ n POWERFAIL 
04 A610 9 46 CMPL CRBSL DUET INE CRBSL rinet fied ),- 
0000' CF 1 4 SPKESGL STIM sYES, IS THIS ONE DUE? 
1A (01 48 BGTRU 86 [NO, SCAN AGAIN 
ea: A eA 
1¢ B3 § 1 6 39 JSB Schesi *TOOTROUT (RS) [CALL THE TIMEOUT ROUTINE 
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66S: 


SETIPL #IPLS_TIMER sRESET THE IPL 
BRB 65$ ;CONTINUE SCAN 


; DEVICE HAS ENABLED TIME OUT = SEE IF IT HAS TIMED OUT 


70$:  CMPL yee BSL_DUETIM(RS) ,W*EXESGL_ABSTIM ;POSSIBLE TIME OUT? 
BGTRU sTF GTRU NO 
SETIPL TIPLS POWER GRAISE TO POWERFAIL IPL 
BBC #UCBS0_TIM UCBSW_STS (RS), 80S “IF CLR, THEN TIME out NOT ENABLED 
CMPL CBSL_BUETIM(R )7W*EXESGL_ABSTIM ;DEVICE TIME OUT 
BGTRU $ “TF GTRU NO 
BICW  #UCBSM_INT!UCBSM_TIM,UCB$W_STS(RS) ;DISABLE INTERRUPT AND TIMEOUT 
BISW #UCBSM“TIMOUT,UCBSW STS CRS “SET DEVICE TIMED 
SETIPL UCB$B_BIPL(RSS sLOWER TO DEVICE {Pt 
MOVQ  ——- UCBSL“FR3(R5) R3 TRETRIEVE SAVED R3 AND R4 
MOVL  UCBSL“FPC(R5) .R2 'GET SAVED PC 
CVTWL  =(R2)7=(SP) [GET OFFSET TO EXCEPTION ROUTINE 
ADDL  (SP)+.R2 [CALCULATE ADDRESS OF EXCEPTION ROUTINE 
JSB (R2) :CALL EXCEPTION ROUTIN 
80$:  SETIPL #IBLS_TIMER SLOWER IPL TO THAT OF TIMER 
BRB 40$ ; 
+ TERMINAL READ TIMED IN PROGRESS 
90$: CMPL BSL_ TT_RDUE(R5) ,W*EXESGL ABSTIM :TIME OUT POSSIBLE? 
BGTRU sIF GTRU THEN NO 
SETIPL At {RAISE TO DEVICE IPL 
BBC wuchey. me TIMo ycesy DEVSTS(R5),100$ ;IF CLR TIMEOUT NOT ENABLED 
CMPL UCBSL_TT_RDUE(R5) ,W*EXESGL_ABSTIM ;TIMED OUT? 
BGTRU 100$ ~ sIF GTRU THEN 
JSB SUCSL 1 eRTIMOUCRS) :GO OFF TO THE TERMINAL SERVICE 
100$: SETIPL #1BLS SLOWER IPL TO THAT OF TIMER 


PROCESS THE FORK-AND-WAIT WORK QUEUE 


To avoid an infinite loop of executing new entries placed on the work queue 
by fork threads resumed from t:ie work queue, the entire work queue is 
removed from the normal header and hung on a header allocated on the stack. 
The normal queue neocer is enon initia ized” thus providing a proper target 
of new queue insertion operations. 


ASSUME FKBSL_FR4 EQ <FKBSL_FR3 + 4> 


CHECK _FORK_N WAIT 


mOvAc Wevesg, FKWAITFL, R6 ; Get fork-&-wait queue header address. 
CRP : Is the queue empty? 
BEOL CHECK_LOCKS : Branch if queue is empty. 
SUBL ; Make space on stack for header. 
REMQUE (R46), R : Dequeue the work queue header. 
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Mivetitt SEARCH FOR TIME OUTS met 7 8}: 38: 8 SYS.SRCJTIMESCHDL.MAR; 1 - 
04 B5 0 7 4609 INSQUE (SP), a4(R5) 3; Queue stack header in its place. 
‘ : eS 06 i i} Bove ae. tne) ; Make real for =p nat queue empty. 
ge 00 8B OF 1 412 10$: REMQUE a($P), R5 ; Get an entry from stack work queue. 
1 D 1 41 BVS 0 3; Branch if stack work queue empty. 
53 104A 7D 1 414 ova FKBSL_FR3(R5), R3 ; Restore fork context. 
1 415 DSBINT FKBSB-FIPL(RSS : Establish fork IPL. 
0c BS) 16 18 JSB aFKBSC_FPC(RS) : Restart fork thread. 
8 41 ENBINT ; Restore our IPL 
7 #11 218 BRB $ 3 Loop ate o anttve stack work queue. 
5E 8 co B 419 90S: ADDL #8, SP 3; ALL done: Pop queue header from stack. 
E 4 9 ; JMP CHECK_LOCKS : Then, fall through to checking locks. 
E 258 
—E 424 ; SCAN FOR WAITING LOCKS: THAT MAY HAVE TIMED OUT. INITIATE A DEADLOCK 
— 425 : SEARCH IF ONE IS FOUN 
E459 
Py: 8 CHECK LOCKS; 
55 QO00'CF DE : 4 MOVA WeLCKSGL_TIMOUTO,R5 :GET ADDRESS OF LIST HEAD 
Sé $3 DO 430 10$: MOVL (R5),R6 :GET FIRST ENTRY ON LIST 
560 OS5—Cté 6 431 CMPL = RS, RO} t1S LIST EMPTY? 
0B 413 «0239°=«4 : BEQL ©. 208 tYES 
oodg Ao p07 0 38 433 CMPL EROS. .UETIN E(R 6),- :NO, HAS THIS ONE TIMED OUT? 
03 1A 0241 63s BGTRU 208 NO. ALSO NO NEED TO LOOK FURTHER 
6 43 436 “AS LIST IS ORDERED 
FDBA' 30 0243 437 BSBW LCKSSEARCHDLCK ‘SEARCH FOR DEADLOCK 
0246 438 [DON'T REPEAT LOOP HERE; IT'S DONE 
N DEADL 
46 439 :IN DEADLOCK 
S56 aay oo 
9 46 ee : SCAN PCB VECTOR FOR PROCESSES NEEDING PRIORITY BOOST 
6 46 444 SCAN_PROC: 
MOVZWL W“SGNSGW_PIXSCAN,R ;GET NUMBER OF PROCESSES TO SCAN 
04 won ; 0 rt tt3 BEUL Hoos een Aunenenan: ‘Oo e DO NOTH 
56 Q000'CF 3C 0240 409 MOVZ2WL W*EXESGW_SCANPIX,R6 :GET PIX TO CH Eck 
54 00009000" FF46 «DO 0252 448 10$: #MOVL  aL*SCHSGC Pceve CERO, R4 :FETCH PCB ADDRESS FOR PIX 
60 A4 «56)—séiBT SA 449 CMPW R6 PCBSL_P1D( [1$ THIS AN ACTIVE PCB? 
C if SE 0450 BNEQ 208 :NO, SKI Yr 
50 2C ae O1 A 451 BISW3 #1,PCB$W_STATE(R4),RO :GEf STATE u 1 
50 p 8} 43¢ CMPW acScHse TOM’ 1>,RO t1S STATE COM OR COMO? 
4 BNEQ 208 :BR IF NOT 
00000000' F D0 $A 434 MOVL L“SCHS$GL_COMQS,R [GET SUMMARY LONGWORD 
51 00000000" EF mf 0 €F 1 455 EXTZv 80,45, sect H$GB.PRI,R1 GET CURRENT PRIORITY 
0 51 €E2 O27A 496 BSS  R1.R0,15 :SET BIT FOR CURRENT PROCESS 
oe (6 FA 7E 457 158: FFS #16,815,R0,RO [GET HIGHEST BACKGROUND PRIORITY 
AS 1 43 CMPB RO 6cB$6_PRI(R4) 'I1S PROCESS ALREADY HIGHER PRIORITY? 
1 4 BGEQ 4 ©_«- 20 :BR IF SO 
FD74" 3 9 46 BSBW SCHSCHSEP :SET TEMPORARY PRIORITY BOOST 
03 56 0000990 Ag FOF C 461 20$:  AOBLEQ L“SCHSGL_MAXPIX,R6,30$ ;NEXT PROCESS INDE 
é 00 4 46¢ MOVL #2.R6 :SET TO START PAST SWAPPER AND NULL 
B8 F 97 463 30S: SOBGTR R5.10$ :SCAN FOR NUMBER OF PROCESSES REQUESTED 
oo0o'cr 56 B80 9A 4 4 na RO, W*EXESGW_SCANPIX >SAVE NEW VALUE 
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Mites tts SEARCH FOR TIME OUTS g- Hi 1382 8}: 38: 8 Heys eR SR cj? RESCHDL. MAR; 1 ° (1) vO. 
F 4 5 
$ 4 5 ; DECLARE NON-PAGED AND PAGED DYNAMIC MEMORY AVAILABLE. THIS IS NECESSARY 
F 4 8 ; BECAUSE IN CERTAIN RARE CASES, THE MEMORY ALLOCATION ROUTINES MAY FAIL TO DO 
OF 4 3; THIS AS OFTEN AS NECESSARY. 
44 of ; THE MAILBOX RESOURCE IS ALSO DECLARED AVAILABLE FOR SIMILAR REASONS. 
OF ore ’ 
50 93 f OF 47 MOVZWL #RSNS$_NPDYNMEM,RO ;NON-PAGED DYNAMIC MEMORY RESOURCE 
FD5B' A 474 SBW SCHSR DECLARE RESOURCE A 
50 9 3 A 475 MOVZWL #RSNS$_PGDYNMEM,RO 3PAGED DYNAMIC MEMORY RESOURCE 
FD55° A 428 $ SCHSRAVA sDECLARE RESOURCE AVAILABLE 
50 02 5 AB 47 MOVZWL #RSNS$_MAILBOX,RO sMAILBOX RESOU 
FD4F' At of8 SCHSRAVAIL ‘DECLARE RESOURCE AVAILABLE 
B1 480; 
Bi 481 ; ALL DONE = RETURN 
02B1 4 § 3 
8 B1 4 
Bl 484 TIMEOUT_DONE: 
55 8E 7D 0281 485 MOVQ (SP)+,R5 sRESTORE REGISTERS 
05 0284 486 RSB ;RETURN 
0285 487 
0285 488 ~END 
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$ewewnmoweecenne --+ 
! \ Psect synopsis ! 


-ecee wemroceees + 


PSECT No. 


PSECT name Allocation Attributes 


‘ “ABS ‘ 00000000 <¢ ) 00 ( 0.) NOPIC USR CON ABS ~- LCL NOSHR NOEXE 
S$ a -»> QO1¢ +1.) NOPIC USR CON ABS LCL NOSHR- EXE 

ASEXENONPAGED 00000285 ( 695.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE 
browne name cence cee wer ome + 
! \ Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization 8 00:0 00.04 00:00: 1.§2 

Command processing 1 : 00:00:00.54 0:00:05.4' 

Pass 4 00:00:16.90 0:00:56.05 

Symbol table sort 00:00:02.74 0:00:08.30 

Pass 2 106 BR: BR! 98 00:00:11.11 

Symbol table output 12 00:00:00.10 00:00:00.10 

Psect synopsis output § 00:00:00.0 00:00:00.02 

Cross-reference output eS BS et Be oY 

Assembler run totals 726 00:00:23. 0:01:22.51 


The working set Limit was 1650 pages. 

92546 bytes (181 pages) of virtual memory were used to buffer the intermediate code 

There were 100 pages of symbol table space allocated to hold 1719 non-local and 33 Local symbols. 
488 source Lines were read in Pass 1, producing 17 object records in Pass 2. 

44 pages of virtual memory were used to define 43 macros. 


eee em ee mB eee ee mem Oe mee ee + 


Macro Library name 


“$255$DUA28: SYS.OBJJLIB.MLB; 1 38 
“$255$DUA28: SYSLIBISTA T.MLB;2 
TOTALS (all Libraries) 9 


1909 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:TIMESCHDL/OBJ=OBJ$:TIMESCHDL MSRC$:TIMESCHDL/UPDATE=(ENHS$: TIMESCHDL) +EXECMLS$/LIB 
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